﻿Public Class uerMainBanHang
    Dim uerCtrBHBanHang As New uerBHBanHang
    Dim uerCtrBHTraHang As New uerBHTraHang
    Dim uerCtrBHLoaiHinh As New uerBHLoaiHinhBanHang
    Dim uerCtrBHCNKH As New uerBHCongNoKhachHang
    Dim uerCtrBHSPSHet As New uerSPTinhTrangKhoHang
    Private Sub DoiUerControl(ByVal uerNameCtr As Control)
        plDetailBH.Controls.Clear()
        plDetailBH.Controls.Add(uerNameCtr)
    End Sub

    Private Sub btnBanHang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBanHang.Click
        DoiUerControl(uerCtrBHBanHang)
    End Sub


    Private Sub btnLoaiHinhBanHang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoaiHinhBanHang.Click
        plDetailBH.Controls.Clear()
        plDetailBH.Controls.Add(uerCtrBHLoaiHinh)
    End Sub

    Private Sub btnTraHang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTraHang.Click
        plDetailBH.Controls.Clear()
        plDetailBH.Controls.Add(uerCtrBHTraHang)
    End Sub

    Private Sub btnCongNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCongNo.Click
        DoiUerControl(uerCtrBHCNKH)
    End Sub

   
    Private Sub btnSPSapHet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSPSapHet.Click
        plDetailBH.Controls.Clear()
        plDetailBH.Controls.Add(uerCtrBHSPSHet)
    End Sub
End Class
